until loop in perl script